home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woc vii 89.d64 / menu (.txt) < prev    next >
Commodore BASIC  |  2009-02-03  |  2KB  |  53 lines
  1. 10 POKE 53280,0:POKE 53281,0:PRINT"[147]"
  2. 20 POKE 53272,23
  3. 30 FORI=0TO32:PRINT"[147]"TAB(I)"[215]ORKSHOP"TAB(37-I)"[157][157][157][157][157][157][215]RITER'S"
  4. 40 FORX=0TO0:NEXT:NEXT
  5. 50 PRINTTAB(17)"[145][145][214] 1.0"
  6. 60 PRINTTAB(13)"[205]ASTER [208]ROGRAM"
  7. 70 PRINT"---------------------------------------"
  8. 80 PRINT"1.---[212]EXT [197]DITOR"
  9. 90 PRINT"2.----[207]UTLINER"
  10. 110 PRINT"3.-----[201]NFORMATION AND [201]NSTRUCTIONS"
  11. 120 PRINT"4.------[209]UIT"
  12. 130 PRINT"---------------------------------------"
  13. 140 PRINT"[150][208]LEASE PRESS THE [206]UMBER[146] OF YOUR CHOICE"
  14. 150 PRINT"****************************************"
  15. 160 GET A$
  16. 165 IF A$=""THEN 160
  17. 170 IF A$="1"THEN 500
  18. 180 IF A$="2"THEN 600
  19. 200 IF A$="3"THEN 220
  20. 210 IF A$="4"THEN NEW:END
  21. 220 REM **** INFORMATION ****
  22. 230 PRINT"[147]"
  23. 240 PRINT"[201]NSTRUCTIONS"
  24. 250 PRINT"------------"
  25. 260 PRINT"[202]UST CHOOSE THE PROGRAM YOU WOULD LIKE  TO RUN BY PRESSING ITS"
  26. 270 PRINT"NUMBER. [215]AIT FOR IT TO LOAD, AND WHEN ITIS FINISHED, IT WILL"
  27. 280 PRINT"AUTOMATICALLY RUN."
  28. 290 PRINT"[208]RESS ANY KEY TO CONTINUE..."
  29. 300 GET A$
  30. 310 IF A$=""THEN 300
  31. 315 GOTO320
  32. 320 PRINT"[147]"
  33. 330 PRINT"[201]NFORMATION"
  34. 340 PRINT"-----------"
  35. 350 PRINT"[212]HIS PROGRAM IS DESIGNED BY [205]IKE [199]OMEZ."
  36. 360 PRINT"[212]EXT [197]DITOR WAS DESIGNED BY [196]AVE[211]2, AS  KNOWN ON [209][204]INK. [212]HREE DOCUMENTS"
  37. 370 PRINT"ARE INCLUDED, ENTITLED 'TE DOC 1', 'TE  DOC 2', AND 'TE DOC 3',"
  38. 380 PRINT"WHICH ARE THE INSTRUCTIONS FOR [212]EXT     [197]DITOR."
  39. 390 PRINT"[207]UTLINER [214]ERSION 4 WAS DESIGNED BY [205]IKE [199]OMEZ, AND HAS NO SPECIAL"
  40. 400 PRINT"[215][208] FILES FOR INSTRUCTIONS, FOR THEY ARE 'BUILT-IN.'"
  41. 410 PRINT"[193]LSO INCLUDED ARE THE FIRST THREE FILES IN A SERIES ENTITLED, '[212]HE"
  42. 420 PRINT"[215]RITER'. [212]HEIR FILENAMES ARE:'TW PT1.1','TW PT1.2', AND 'TW PT1.3'."
  43. 440 PRINT"[208]RESS ANY KEY TO CONTINUE..."
  44. 450 GET A$
  45. 460 IF A$=""THEN 450
  46. 470 GOTO10
  47. 500 PRINT"[147]LOAD"CHR$(34)"TEXT EDITOR"CHR$(34)",8,1"
  48. 510 PRINT"RUN"
  49. 520 POKE 631,19:POKE632,13:POKE633,13:POKE198,3:END
  50. 600 PRINT"[147]LOAD"CHR$(34)"OUTLINER V.4"CHR$(34)",8"
  51. 610 PRINT"RUN"
  52. 620 POKE 631,19:POKE632,13:POKE633,13:POKE198,3:END
  53.